home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / cig / libcig.h < prev    next >
C/C++ Source or Header  |  1995-10-22  |  729b  |  24 lines
  1. #include "scheme48.h"
  2.  
  3. /* StobData is used by fdports.c. It should be changed over to STOB_REF
  4. ** by removing the extra indirection. */
  5. #define StobData(x) (ADDRESS_AFTER_HEADER(x, scheme_value))
  6.  
  7. #define IsChar(x) ((((long) x) & 0xff) == SCHCHAR)
  8.  
  9. #define StrByte(x, i)  ((i) + ADDRESS_AFTER_HEADER((x), char))
  10. #define cig_string_body(x) (ADDRESS_AFTER_HEADER((x), char))
  11.  
  12. #define AlienVal(x) (STOB_REF((x),0))
  13.  
  14. extern char *scheme2c_strcpy(scheme_value sstr);
  15.  
  16. extern scheme_value strlen_or_false(const char *s);
  17.  
  18. extern char *copystring_or_die(const char *);
  19. extern char *copystring(char *, const char *);
  20.  
  21. extern scheme_value strlen_or_false(const char *);
  22.  
  23. extern void cig_check_nargs(int arity, int nargs, const char *fn);
  24.